﻿Imports System.IO
Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.BR

Namespace Mantenimiento.Listados

    Public Class XRListPrecio
        Inherits JsonAbm

        Sub New()
            MyBase.New(Operador, Password, "XRListPrecio", "App_Articulo_Precio", "descripcion")
            MyBase.lnk_nombreOperador = Common.Env.Operador
            'Graba tracking5
            Me.lnk_Tracking = True
        End Sub

        Public Overrides Function List(Start As Integer, Limit As Integer, Orden As String, Filtro As String) As String
            Dim oFiltro As FiltroColeccion = FiltroColeccion.Parse(Filtro)
            If (Common.GrupoOperador.ID.Trim().ToUpper() = "PROVEEDOR") Then oFiltro.AgregarEQFilter("cd_proveedor", Common.EntidadOperador.ID)
            If (Common.GrupoOperador.ID.Trim().ToUpper() = "COMERCIO") Then oFiltro.AgregarEQFilter("cd_comercio", Common.EntidadOperador.ID)
            Return MyBase.List(Start, Limit, Orden, oFiltro.ToJSON())
        End Function

        Public Sub ExportaraPDF(stream As Stream)
            DT2PDF.ExportToPDF(ListDS(0, -1, Nothing, Nothing).Tables(0), stream)
        End Sub

    End Class
End Namespace